SGI Freeware 1999 August/SGI Freeware 1999 August.iso/dist/fw_perl.idb/usr/freeware/bin/pod2text.z/pod2text

Text File | 1998-10-28 | 195 b | 13 lines

#!/usr/freeware/bin/perl
    eval 'exec /usr/freeware/bin/perl -S $0 ${1+"$@"}'
    if $running_under_some_shell;

use Pod::Text;

if(@ARGV) {
    pod2text($ARGV[0]);
} else {
    pod2text("<&STDIN");
}